Top 10k strings from Stars Spectrum - Utilidades - Issue 04 (1984)(Stars)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
22 RESULTADO=
14 STARS INICIACION AL BASIC "
13 ;" Pulsa ENTER para continuar ":
12 hhhhhhhhhhhhhhhhhhh
6 CCCCCCCCCCC
2 poke=23761
2 SUPERDATA
2 CCCCCCCCCC
2 ;"******* SUPER-DATA *******"
2 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2 "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",9999
2 ""STARS""+
1 suma=suma+
1 si microdrive conectado en 8055 debe ser poke=23819
1 poke+((x-1
1 peek=peek+1
1 numlin=numlin+10
1 numlin=990
1 numero de lineas
1 nlin=nlin+1
1 modelos
1 linea=linea+10
1 linea=linea+1
1 linea=1000
1 linea;" O.K."
1 l=suma-256
1 kccccs{kkogc|
1 inicializacion
1 hhhhhhhhhhhhhhhhh
1 fff|hdf>``<
1 direc=direc+1
1 direc=40000
1 direc,byte
1 decompilador
1 compilador
1 basic A
1 basic
1 `````d|cww
1 UTILITY MAGAZINE
1 STARS
1 STAR UTILIDADES N. 4
1 SI EL ARGUMENTO ES NULO Y
1 PANTA
1 LAS FUNCIONES DEL SPECTRUM
1 IZDA
1 ESPEC
1 DESEAS UN REPASO (S/N) ?"
1 DCHA
1 D$
1 D
1 C$=""625"":
1 C
1 BASIC
1 B:PRINT A$,B:NEXT N "
1 B-29955-850
1 A$+ LEN A$
1 >B><>B<><B
1 >B><><<><B
1 ;"Terminado!"
1 ;"Pulsa una tecla":
1 ;"Pulsa una tecla para listado":
1 ;"PUEDES VARIAR EL MODELO TANTAS"''"VECES COMO LO DESEES. PARA ELLO"''"DEBES REDEFINIR EL PRIMER"''"GRAFICO DE USUARIO CON EL NUEVO"''"MODELO Y EJECUTAR MEDIANTE"''" RANDOMIZE USR 58000"
1 ;"PON EN MARCHA EL CASSETTE"
1 ;"PARA EL CASSETTE"
1 ;"Hay ";linea;" lineas de datos.":
1 ;"Decompilando linea ";numlin
1 ;"DESEAS VER LAS INSTRUCCIONES DE NUEVO ?":
1 ;"Conecta el cassette"
1 ;"ATENCION"''''"*Usa >
1 ;"--------------------------------"
1 ;"*** STARS ** STARS ***";
1 ;"* STARS *"
1 ;" TRANQUILO, TODO VA BIEN."
1 ;" PULSA UNA TECLA PARA CONTINUAR ":
1 ;" Pulsa una tecla":
1 ;" PULSA UNA TECLA":
1 ;" PULSA UNA TECLA "
1 8((((8(8~ZZ~
1 30200"'"IZQUIERDA >
1 30000"'"DERECHA >
1 1 F
1 008<ff<fff<<ff>
1 00000000000000000000000000000000
1 0,0;""NOMBRE"",""TELEFONO"":PRINT:PRINT "
1 ...................
1 ..........
1 -- ESTA FUNCION NOS DARA LA RAIZ CUADRADA DE UN NUMERO O VARIABLE NUMERICA. BASANDOSE EN QUE EL RESULTADO DE UNA RAIZ CUADRADA MULTIPLICADO POR SI MISMO NOS HA DE DAR EL ARGUMENTOINICIAL Y EN QUE NO HAY NINGUN NUMERO QUE MULTIPLICADO POR SI MISMO NOS DE UNO NEGATIVO, EL ORDENADOR NO ENTENDERA LA RAIZ CUADRADA DE UN ARGUMENTO NEGATI-VO."
1 -- ESTA FUNCION NOS DARA LA PARTE ENTERA DE UN NUMERO O VARIABLE NUMERICA DECIMALES. SI ESTOS SON NEGATIVOS, EL ORDENA- DOR REDONDEARA SIEMPRE POR DE- FECTO."
1 -- ESTA FUNCION NOS DARA EL VALOR ABSOLUTO DE UN NUMERO ODE UNA VARIABLE NUMERICA. O LO QUE ES IGUAL, CONVIERTE UN ARGU-MENTO EN UN NUMERO POSITIVO."
1 -- ESTA FUNCION ES SOLO A-PLICABLE A CADENAS ALFANUMERICASY NOS DARA COMO RESULTADO EL NU-MERO DE CARACTERES QUE HAYA EN ELLA."
1 -- ESTA FUNCION CONVIERTENUMEROS EN CADENAS ALFANUMERICASPARA SER TRATADAS COMO TALES."
1 -- ESTA FUNCION CONVIERTE CADENAS ALFANUMERICAS EN NUMEROSOPERABLES. SI LAS CADENAS A MO- DIFICAR SON LETRAS, TOMARA A ES-TAS COMO NOMBRE DE VARIABLE."
1 -- ES LA FUNCION SIGNO, TANTO EL ARGUMENTO (DATO A OPE- RAR) COMO EL RESULTADO SON NUME-ROS."
1 , CREAMOS UN BUCLE QUE SE REPETIRA 9 VECES ( O LAS QUE VOSOTROS QUERAIS DEPENDIENDODE LA CANTIDAD DE AMIGOS). EN ELQUE CADA VEZ LEEREMOS UN DATO ALFANUMERICO (NOMBRE) Y OTRO NU-MERICO (TELEFONO) DE LA LISTA DE
1 )="0123456789abcdef"(
1 '''''''" ESTE PROGRAMA PERMITE CONVER-TIR EL CODIGO MAQUINA EN SENTEN-CIAS DATA."
1 ''''" ESTAMOS OTRA VEZ CON VOSOTROSEN ESTE NUEVO CAPITULO. COMO ES COSTUMBRE, EMPEZAREMOS DANDO UNAPOSIBLE SOLUCION AL ULTIMO PRO- BLEMA QUE OS PLANTEAMOS."
1 '''" Usa EDIT para obtener ";x;" lineas"'"como la 1000."
1 '''" 1-Inicializar"''" 2-No. de lineas de datos"''" 3-Cargar C/M"''" 4-Decompilar"''" 5-Compilar"
1 '''" SEGUIREMOS DESPUES CON EL TE-MA DE HOY QUE VA A TRATAR DE LASFUNCIONES DEL SPECTRUM."
1 '''" EN EL PROXIMO CAPITULO ESTU- DIAREMOS LAS FUNCIONES MATEMATI-CAS DEL SPECTRUM Y LA MANERA DE DEFINIR UNA PROPIA PARA FINES ESPECIFICOS NUESTROS."
1 '''" ANTES DE CONTINUAR HEMOS DE DECIR QUE TANTO LAS FUNCIONES COMO SUS RESULTADOS SON OPERA- BLES ENTRE SI Y QUE LAS OPERA- CIONES ENTRE FUNCIONES TIENEN PREFERENCIA SOBRE LAS OPERACIO- NES MATEMATICAS."
1 ''"C/M en memoria."
1 ''"*La decompilacion se realizara"''"en la posicion 40000,a menos que"''"se cambien los valores de las"''"lineas 7200 y 7210."
1 ''" Y UN NUEVO JUEGO DE CARACTERES"''"QUE DARA A TU SPECTRUM UNA"''"NUEVA IMAGEN."
1 ''" TE PRESENTAMOS CUATRO"''"SUBRUTINAS CON LAS QUE PUEDES"''"CONSEGUIR CURIOSOS EFECTOS EN"''"LA PANTALLA DE TU ZX-SPECTRUM."
1 ''" VEAMOS AHORA ALGUNOS EJEMPLOSY SUS DIFERENCIAS DE RESULTADOS CON LA UTILIZACION DE LOS PAREN-TESIS."
1 ''" UTILIZA LA OPCION 1 PARA INI-CIALIZAR Y CREAR TANTAS LINEAS DATA COMO SEAN NECESARIAS."
1 ''" TEN CUIDADO CON LA OPCION 3 PUESTO QUE EL PROGRAMA POR SI SOLO NO HACE NINGUN CLEAR. LA OPCION 4 Y MAS INTERESANTE ES LAQUE COMPILA EL C/M EN SENTEN- CIAS DATA."
1 ''" LAS FUNCIONES SON INSTRUCCIO-NES QUE NOS PERMITEN MODIFICAR DATOS, OBTENIENDO CON ELLO UN RESULTADO."
1 ''" LA OPCION 5 SIRVE TANTO PARA COMPROBACION COMO PARA DECOMPI- LAR PROGRAMAS C/M LISTADOS QUE SIGAN ESTE FORMATO DE 50 BYTES POR LINEA DE DATA Y DIGITOS HEXADECIMALES EN MINUSCULAS."
1 ''" EN LA LINEA
1 ''" DADA LA PARTICULAR IMPORTAN- CIA DE ESTE ULTIMO CAPITULO, OS PROPONEMOS COMO EJERCICIO DE HOYUN REPASO GENERAL DE ESTAS DOS ULTIMAS LECCIONES."
1 '"ESPEJO >
1 '" EN LA LINEA
1 '" EN LA
1 '" EN BASE A ESTO, DESARROLLARE-MOS EL PROGRAMA DE LA SIGUIENTE MANERA:"
1 '" EL BASIC DEL SPECTRUM NOS OFRECE DOS TIPOS DE FUNCIONES, LAS PROPIAS DEL SISTEMA Y LAS DEFINIBLES POR EL USUARIO. VAMOSA EMPEZAR POR LAS PRIMERAS."
1 '" COMO YA DIJIMOS EL MES PASADOLAS
1 '" 6- RANDOMIZE USR 64800"''" 7- RANDOMIZE USR 58000"
1 '" 4- DEFINIR EL GRAFICO DE USUARIO DE LA A, QUE SERVIRA DE MODELO"''" 5- PLOT INVERSE1;X,Y DONDE X,Y DEFINE UN PUNTO INTERIOR DE LA FIGURA"
1 "Selecciona opcion:"
1 "O simplemente para dibujar su propio papel pintado."
1 "O para rellenar letras."
1 "O para conseguir efectos 3D por sombreado."
1 "Nombre del
1 "Longitud ? ";long
1 "Inicio del bloque de bytes ? ";peek
1 "Esta rutina es util para dibujardiagramas o graficos."
1 "Error en la linea ";linea;:
1 "(S/N)";A$:
1 ""STARS"")
1 " Para utilizar la rutina debes seguir estas instrucciones:"''" 1- CLEAR 57999"''" 2- CARGAR LOS DOS BLOQUES DE BYTES"''" 3- DIBUJAR LA FIGURA CERRADA"
1 " Entra la longitud del bloque debytes redondeada por arriba a unmultiplo de 50":
1 " SE PUEDE APLICAR TANTO A VA- RIABLES NUMERICAS COMO A NUMEROSDIRECTAMENTE. EL RESULTADO SERA
1 SON UNA FORMA DE PRO- CESAR DATOS SIN INTRODUCIRLOS POR MEDIO DEL TECLADO."
1 SI ES NEGATIVO."
1 SI EL ARGUMENTO ES POSITIVO,
1 PRINT VAL ""5467""
1 PRINT SQR 196
1 PRINT SGN 125
1 PRINT SGN -10
1 PRINT LEN ""STARS""
1 PRINT INT 23.5
1 PRINT INT -4.8
1 PRINT ABS 234
1 PRINT 3*(
1 LET K=5.7: PRINT INT K
1 LET C=50: PRINT
1 LET C=0: PRINT SGN C
1 LET C=-4.2: PRINT INT C
1 LET C=-12: PRINT ABS C
1 LET BASIC=25: LET A$=""BASIC"": PRINT
1 LET B=25: PRINT SQR B
1 LET A=85: LET F$=""A"": PRINT VAL F$
1 LET A$=""ABC345"": PRINT LEN A$
1 LET A$=""123"":PRINT VAL A$
1 DISPONEMOS LA LISTA DE
1 DE PROGRAMA OR-DENAMOS LA IMPRESION DE UNA CA- BECERA PARA LA PANTALA, AL MISMOTIEMPO QUE DEJAMOS 2 LINEAS EN BLANCO CON LA INSTRUCCION
1 < para ejecutar."'''"*Las lineas de datos deben"''"espaciarse de 10 en 10, es decir"''"1000,1010,1020,etc."
1 15 DATA ""PEPE"",3234530,""JORGE"",2374133,""ALBERTO"",3225607,""DAVID"",2259615,""ANA"",3311567,""MONICA"",2304510,""PEDRO"",3944103,""SIMON"",2215672,""LUZ"",2813040
1 10 FOR N=1
1 5 PRINT